home *** CD-ROM | disk | FTP | other *** search
/ Skandinavian News 7 / Skandinavian News - Issue 7 (1989-01)(Accession)[h Amiga Hackers United].adf / page40 < prev    next >
Text File  |  1987-06-04  |  2KB  |  55 lines
  1. #move 0,0
  2. B$=LEFT$(A$,1):REM ROTATE TEXT FIRST1/2
  3. C$=RIGHT$(A$,A-1):REM ROTATE TEXT 2.1/2
  4. A$=C$+B$:REM GET NEW STRING
  5. IF K=0 THEN GOTO LOOP:REM IF NOT MOUSE
  6. PRESSED THEN LOOP ON..
  7. WINDOW 2 CLOSE:REM WINDOW IS CLOSED
  8. SCREEN 2 CLOSE:REM SCREEN IS CLOSED
  9. END
  10. REM EXIT TO YOUR SYSTEM
  11.   OK,  now  you  can  type  this  short
  12. program.  Don't  forget  to write EVERY
  13. REM-Line I put in here, because as said
  14. above, REM-Lines Increase the Speed. If
  15. the  program  is too slow, just include
  16. more REM-Lines.. Some 10 REM-Lines 
  17. increase the Speed with about.5 Seconds
  18. per Command. COOL! MEGACOOL! SUPERCOOL!
  19.   Now  we  also  want  to  include some
  20. animated 3D Vectorgraphix. How do we do
  21. so? We write the following Subroutine :
  22.  
  23. VEKTOR: REM - SUBROUTINE
  24. CLS: REM - CLEAR THE SCREEN
  25. CIRCLE (150,100),r,1: REM-MAKE A CIRCLE 
  26. IF b=1 THEN GOTO si1: REM- CHANGE VALUE
  27. r=r+1: REM - CHANGE VALUE
  28. #move 325,0
  29. IF r=100 THEN b=1: REM - CHANGE VALUE
  30. GOTO ex: REM ???
  31. si1: REM - CHANGE ?
  32. r=r-1: REM CHANGE VALUE ?!
  33. IF r=0 THEN b=0: REM CHANGE VALUE !
  34. ex: REM ?
  35. RETURN: REM !!!
  36. And then we write after the 'LOOP'label
  37. this : GOSUB VEKTOR.
  38. Then we have a SUPERCOOL Megaultrahard-
  39. core first demo. Everyone will just
  40. LOVE us. Juhuuu!        <The Dark Lord>
  41. ---------------------------------------
  42.   Treat  a  child as if he already were 
  43. the man  he willsometimes maybe be.
  44. ---------------------------------------
  45.   Grendel  in  train  four  days  after
  46. Christmas: "My grandma  gave me a watch
  47. to me as a present. It's  a  brand  new
  48. model. It doesn't need any batteries. I
  49. just have to wind it.              
  50. ---------------------------------------
  51.   It is important to hear the music
  52. everywhere. Most people just hear the
  53. bad sounds.        -Theodor Fontane-
  54. ---------------------------------------
  55.